home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ownrdclb / test.frm < prev    next >
Text File  |  1998-06-28  |  22KB  |  698 lines
  1. VERSION 5.00
  2. Object = "{72D18DD4-0DA7-11D2-8E21-00B404C10000}#2.1#0"; "ODCboLst.ocx"
  3. Begin VB.Form frmTest 
  4.    Caption         =   "Owner Draw Combo Box Tester"
  5.    ClientHeight    =   8475
  6.    ClientLeft      =   3765
  7.    ClientTop       =   2130
  8.    ClientWidth     =   7740
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "Test.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   8475
  21.    ScaleWidth      =   7740
  22.    Begin ODCboLst.OwnerDrawComboList cboFonts 
  23.       Height          =   360
  24.       Left            =   120
  25.       TabIndex        =   6
  26.       Top             =   4020
  27.       Width           =   3015
  28.       _ExtentX        =   5318
  29.       _ExtentY        =   635
  30.       Sorted          =   -1  'True
  31.       ExtendedUI      =   -1  'True
  32.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  33.          Name            =   "Tahoma"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   -2147483630
  42.       ClientDraw      =   7
  43.       Style           =   0
  44.    End
  45.    Begin VB.CommandButton Command1 
  46.       Caption         =   "Command1"
  47.       Height          =   435
  48.       Left            =   5940
  49.       TabIndex        =   14
  50.       Top             =   5940
  51.       Width           =   1095
  52.    End
  53.    Begin VB.Timer tmrFocus 
  54.       Interval        =   250
  55.       Left            =   3600
  56.       Top             =   3120
  57.    End
  58.    Begin ODCboLst.OwnerDrawComboList lstMultiSelect 
  59.       Height          =   1815
  60.       Left            =   4800
  61.       TabIndex        =   12
  62.       Top             =   3960
  63.       Width           =   2835
  64.       _ExtentX        =   5001
  65.       _ExtentY        =   3201
  66.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  67.          Name            =   "Tahoma"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   -2147483630
  76.       Style           =   6
  77.    End
  78.    Begin ODCboLst.OwnerDrawComboList cboCursors 
  79.       Height          =   360
  80.       Left            =   4740
  81.       TabIndex        =   10
  82.       Top             =   2640
  83.       Width           =   2895
  84.       _ExtentX        =   5106
  85.       _ExtentY        =   635
  86.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  87.          Name            =   "Tahoma"
  88.          Size            =   8.25
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       ForeColor       =   -2147483630
  96.       Style           =   0
  97.    End
  98.    Begin ODCboLst.OwnerDrawComboList lstSysColours 
  99.       Height          =   1995
  100.       Left            =   4740
  101.       TabIndex        =   9
  102.       Top             =   300
  103.       Width           =   2955
  104.       _ExtentX        =   5212
  105.       _ExtentY        =   3519
  106.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  107.          Name            =   "Tahoma"
  108.          Size            =   8.25
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   -2147483630
  116.       ClientDraw      =   5
  117.       Style           =   4
  118.    End
  119.    Begin ODCboLst.OwnerDrawComboList cboSysColor 
  120.       Height          =   360
  121.       Left            =   120
  122.       TabIndex        =   0
  123.       Top             =   360
  124.       Width           =   1875
  125.       _ExtentX        =   3307
  126.       _ExtentY        =   635
  127.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  128.          Name            =   "Tahoma"
  129.          Size            =   8.25
  130.          Charset         =   0
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       ForeColor       =   -2147483630
  137.       ClientDraw      =   5
  138.    End
  139.    Begin ODCboLst.OwnerDrawComboList cboColorPicker 
  140.       Height          =   360
  141.       Left            =   120
  142.       TabIndex        =   3
  143.       Top             =   1800
  144.       Width           =   1995
  145.       _ExtentX        =   3519
  146.       _ExtentY        =   635
  147.       ExtendedUI      =   -1  'True
  148.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  149.          Name            =   "Tahoma"
  150.          Size            =   8.25
  151.          Charset         =   0
  152.          Weight          =   400
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   -2147483630
  158.       ClientDraw      =   3
  159.    End
  160.    Begin ODCboLst.OwnerDrawComboList cboStyles 
  161.       Height          =   360
  162.       Left            =   120
  163.       TabIndex        =   5
  164.       Top             =   3180
  165.       Width           =   3015
  166.       _ExtentX        =   5318
  167.       _ExtentY        =   635
  168.       ExtendedUI      =   -1  'True
  169.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  170.          Name            =   "Tahoma"
  171.          Size            =   8.25
  172.          Charset         =   0
  173.          Weight          =   400
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.       ForeColor       =   -2147483630
  179.       ClientDraw      =   6
  180.       Style           =   0
  181.    End
  182.    Begin ODCboLst.OwnerDrawComboList lstCheck 
  183.       Height          =   1335
  184.       Left            =   180
  185.       TabIndex        =   7
  186.       Top             =   4860
  187.       Width           =   4155
  188.       _ExtentX        =   7329
  189.       _ExtentY        =   2355
  190.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  191.          Name            =   "Tahoma"
  192.          Size            =   8.25
  193.          Charset         =   0
  194.          Weight          =   400
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       ForeColor       =   -2147483630
  200.       Style           =   7
  201.    End
  202.    Begin ODCboLst.OwnerDrawComboList lstMultiCol 
  203.       Height          =   1875
  204.       Left            =   180
  205.       TabIndex        =   8
  206.       Top             =   6540
  207.       Width           =   7455
  208.       _ExtentX        =   13150
  209.       _ExtentY        =   3307
  210.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  211.          Name            =   "MS Sans Serif"
  212.          Size            =   8.25
  213.          Charset         =   0
  214.          Weight          =   400
  215.          Underline       =   0   'False
  216.          Italic          =   0   'False
  217.          Strikethrough   =   0   'False
  218.       EndProperty
  219.       Style           =   4
  220.    End
  221.    Begin VB.CheckBox chkEnabled 
  222.       Caption         =   "&Enabled"
  223.       Enabled         =   0   'False
  224.       Height          =   195
  225.       Left            =   4800
  226.       TabIndex        =   13
  227.       Top             =   5880
  228.       Width           =   2835
  229.    End
  230.    Begin VB.CheckBox chkShowNames 
  231.       Caption         =   "&Show Names"
  232.       Height          =   255
  233.       Left            =   120
  234.       TabIndex        =   4
  235.       Top             =   2400
  236.       Value           =   1  'Checked
  237.       Width           =   1995
  238.    End
  239.    Begin VB.PictureBox picColorSample 
  240.       BeginProperty Font 
  241.          Name            =   "MS Sans Serif"
  242.